/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_02 / savemode7

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 25 f4 20 50 72 | 6f 63 65 64 75 72 65 20 |...%. Pr|ocedure |
|00000010| 74 6f 20 73 61 76 65 20 | 4d 4f 44 45 20 37 20 73 |to save |MODE 7 s|
|00000020| 63 72 65 65 6e 0d 00 14 | 1e f4 20 43 6c 69 76 65 |creen...|.. Clive|
|00000030| 20 57 69 6c 6c 69 61 6d | 73 20 31 35 2e 38 2e 31 | William|s 15.8.1|
|00000040| 39 38 37 0d 00 28 0d 4f | 53 5f 42 79 74 65 3d 36 |987..(.O|S_Byte=6|
|00000050| 0d 00 32 11 52 65 61 64 | 5f 63 68 61 72 3d 31 33 |..2.Read|_char=13|
|00000060| 35 0d 00 46 09 eb 20 37 | 3a 87 0d 00 50 25 6c 6f |5..F.. 7|:...P%lo|
|00000070| 61 64 66 69 6c 65 24 3d | 22 44 45 4d 4f 22 3a 73 |adfile$=|"DEMO":s|
|00000080| 61 76 65 66 69 6c 65 24 | 3d 22 44 45 4d 4f 22 0d |avefile$|="DEMO".|
|00000090| 00 5a 05 f5 0d 00 64 05 | db 0d 00 6e 0e e3 20 79 |.Z....d.|...n.. y|
|000000a0| 25 3d 31 20 b8 20 32 0d | 00 78 23 f1 8a 30 2c 79 |%=1 . 2.|.x#..0,y|
|000000b0| 25 29 3b bd 31 35 37 3b | bd 31 32 39 3b bd 31 34 |%);.157;|.129;.14|
|000000c0| 31 3b 22 55 73 69 6e 67 | 22 3b 0d 00 82 28 f1 bd |1;"Using|";...(..|
|000000d0| 31 33 32 3b 22 42 50 55 | 54 22 3b bd 31 32 39 3b |132;"BPU|T";.129;|
|000000e0| 22 61 6e 64 22 3b bd 31 | 33 32 3b 22 42 47 45 54 |"and";.1|32;"BGET|
|000000f0| 22 3b 0d 00 8c 30 f1 bd | 31 32 39 3b 22 66 6f 72 |";...0..|129;"for|
|00000100| 22 3b bd 31 33 30 3b 22 | 4d 4f 44 45 20 37 22 3b |";.130;"|MODE 7";|
|00000110| bd 31 32 39 3b 22 66 69 | 6c 65 73 20 22 3b bd 31 |.129;"fi|les ";.1|
|00000120| 35 36 0d 00 96 08 ed 20 | 79 25 0d 00 a0 20 f1 8a |56..... |y%... ..|
|00000130| 31 30 2c 34 29 3b bd 31 | 33 31 3b 22 57 68 69 63 |10,4);.1|31;"Whic|
|00000140| 68 20 6f 70 74 69 6f 6e | 3f 22 0d 00 aa 20 f1 8a |h option|?"... ..|
|00000150| 31 30 2c 36 29 3b bd 31 | 33 34 3b 22 31 2e 53 61 |10,6);.1|34;"1.Sa|
|00000160| 76 65 20 73 63 72 65 65 | 6e 22 0d 00 b4 20 f1 8a |ve scree|n"... ..|
|00000170| 31 30 2c 37 29 3b bd 31 | 33 34 3b 22 32 2e 4c 6f |10,7);.1|34;"2.Lo|
|00000180| 61 64 20 73 63 72 65 65 | 6e 22 0d 00 be 1b f1 8a |ad scree|n"......|
|00000190| 31 30 2c 38 29 3b bd 31 | 33 34 3b 22 33 2e 46 69 |10,8);.1|34;"3.Fi|
|000001a0| 6e 69 73 68 22 0d 00 c8 | 22 f1 8a 39 2c 31 30 29 |nish"...|"..9,10)|
|000001b0| 3b bd 31 33 31 3b 22 53 | 65 6c 65 63 74 20 31 2c |;.131;"S|elect 1,|
|000001c0| 32 20 6f 72 20 33 22 0d | 00 d2 05 f5 0d 00 dc 0f |2 or 3".|........|
|000001d0| 63 68 6f 69 63 65 3d a5 | 2d 34 38 0d 00 e6 18 fd |choice=.|-48.....|
|000001e0| 20 63 68 6f 69 63 65 3e | 30 80 20 63 68 6f 69 63 | choice>|0. choic|
|000001f0| 65 3c 34 0d 00 f0 0f c8 | 8e 20 63 68 6f 69 63 65 |e<4.....|. choice|
|00000200| 20 ca 0d 00 fa 18 c9 20 | 31 20 3a 20 f2 63 72 65 | ...... |1 : .cre|
|00000210| 61 74 65 5f 73 63 72 65 | 65 6e 0d 01 04 1b f2 73 |ate_scre|en.....s|
|00000220| 61 76 65 5f 73 63 72 65 | 65 6e 28 73 61 76 65 66 |ave_scre|en(savef|
|00000230| 69 6c 65 24 29 0d 01 0e | 21 c9 20 32 20 3a 20 f2 |ile$)...|!. 2 : .|
|00000240| 6c 6f 61 64 5f 73 63 72 | 65 65 6e 28 6c 6f 61 64 |load_scr|een(load|
|00000250| 66 69 6c 65 24 29 0d 01 | 18 07 47 3d a5 0d 01 22 |file$)..|..G=..."|
|00000260| 05 cb 0d 01 2c 0e fd 20 | 63 68 6f 69 63 65 3d 33 |....,.. |choice=3|
|00000270| 0d 01 36 07 ee 3a db 0d | 01 40 05 e0 0d 01 54 13 |..6..:..|.@....T.|
|00000280| dd f2 63 72 65 61 74 65 | 5f 73 63 72 65 65 6e 0d |..create|_screen.|
|00000290| 01 5e 0b ea 20 78 25 2c | 79 25 0d 01 68 05 db 0d |.^.. x%,|y%..h...|
|000002a0| 01 72 24 e3 20 79 25 3d | 30 20 b8 20 32 33 3a f1 |.r$. y%=|0 . 23:.|
|000002b0| 8a 30 2c 79 25 29 3b bd | 31 33 32 3b bd 31 35 37 |.0,y%);.|132;.157|
|000002c0| 3b 3a ed 0d 01 7c 35 e3 | 20 79 25 3d 30 20 b8 20 |;:...|5.| y%=0 . |
|000002d0| 31 3a f1 8a 31 30 2c 79 | 25 29 3b bd 31 33 35 3b |1:..10,y|%);.135;|
|000002e0| bd 31 34 31 3b 22 45 78 | 61 6d 70 6c 65 20 53 63 |.141;"Ex|ample Sc|
|000002f0| 72 65 65 6e 22 3b 3a ed | 0d 01 86 31 f1 8a 33 2c |reen";:.|...1..3,|
|00000300| 33 29 3b bd 31 33 31 3b | 22 54 68 69 73 20 69 73 |3);.131;|"This is|
|00000310| 20 61 20 73 61 6d 70 6c | 65 20 74 65 78 74 20 73 | a sampl|e text s|
|00000320| 63 72 65 65 6e 20 74 6f | 22 0d 01 90 2f f1 8a 33 |creen to|".../..3|
|00000330| 2c 34 29 3b bd 31 33 31 | 3b 22 73 68 6f 77 20 68 |,4);.131|;"show h|
|00000340| 6f 77 20 42 50 55 54 20 | 61 6e 64 20 42 47 45 54 |ow BPUT |and BGET|
|00000350| 20 63 61 6e 20 62 65 22 | 0d 01 9a 30 f1 8a 33 2c | can be"|...0..3,|
|00000360| 35 29 3b bd 31 33 31 3b | 22 75 73 65 64 20 74 6f |5);.131;|"used to|
|00000370| 20 73 61 76 65 20 4d 4f | 44 45 20 37 20 73 63 72 | save MO|DE 7 scr|
|00000380| 65 65 6e 73 20 61 73 22 | 0d 01 a4 1e f1 8a 33 2c |eens as"|......3,|
|00000390| 36 29 3b bd 31 33 31 3b | 22 66 69 6c 65 73 20 6f |6);.131;|"files o|
|000003a0| 66 20 31 4b 2e 22 0d 01 | ae 3d f1 8a 33 2c 38 29 |f 1K."..|.=..3,8)|
|000003b0| 3b bd 31 33 34 3b 22 54 | 68 65 20 63 6f 6d 6d 61 |;.134;"T|he comma|
|000003c0| 6e 64 22 3b bd 31 32 39 | 3b 22 2a 53 43 52 45 45 |nd";.129|;"*SCREE|
|000003d0| 4e 53 41 56 45 22 3b bd | 31 33 34 3b 22 63 61 6e |NSAVE";.|134;"can|
|000003e0| 27 74 22 0d 01 b8 32 f1 | 8a 33 2c 39 29 3b bd 31 |'t"...2.|.3,9);.1|
|000003f0| 33 34 3b 22 62 65 20 75 | 73 65 64 20 61 73 20 4d |34;"be u|sed as M|
|00000400| 4f 44 45 20 37 20 69 73 | 20 6e 6f 74 20 63 6c 61 |ODE 7 is| not cla|
|00000410| 73 73 65 64 22 0d 01 c2 | 26 f1 8a 33 2c 31 30 29 |ssed"...|&..3,10)|
|00000420| 3b bd 31 33 34 3b 22 61 | 73 20 61 20 67 72 61 70 |;.134;"a|s a grap|
|00000430| 68 69 63 73 20 6d 6f 64 | 65 2e 22 0d 01 cc 34 f1 |hics mod|e."...4.|
|00000440| 8a 33 2c 31 32 29 3b bd | 31 33 31 3b 22 41 6c 74 |.3,12);.|131;"Alt|
|00000450| 68 6f 75 67 68 20 41 72 | 63 68 69 6d 65 64 65 73 |hough Ar|chimedes|
|00000460| 20 73 74 6f 72 65 73 20 | 4d 4f 44 45 20 37 22 0d | stores |MODE 7".|
|00000470| 01 d6 31 f1 8a 33 2c 31 | 33 29 3b bd 31 33 31 3b |..1..3,1|3);.131;|
|00000480| 22 73 63 72 65 65 6e 73 | 20 75 73 69 6e 67 20 38 |"screens| using 8|
|00000490| 30 4b 20 6f 66 20 52 41 | 4d 2c 20 74 68 69 73 22 |0K of RA|M, this"|
|000004a0| 0d 01 e0 33 f1 8a 33 2c | 31 34 29 3b bd 31 33 31 |...3..3,|14);.131|
|000004b0| 3b 22 70 72 6f 67 72 61 | 6d 20 73 68 6f 77 73 20 |;"progra|m shows |
|000004c0| 68 6f 77 20 74 6f 20 72 | 65 64 75 63 65 20 74 68 |how to r|educe th|
|000004d0| 69 73 22 0d 01 ea 2a f1 | 8a 33 2c 31 35 29 3b bd |is"...*.|.3,15);.|
|000004e0| 31 33 31 3b 22 74 6f 20 | 31 4b 20 66 6f 72 20 66 |131;"to |1K for f|
|000004f0| 69 6c 65 20 73 74 6f 72 | 61 67 65 2e 22 0d 01 f4 |ile stor|age."...|
|00000500| 28 e3 20 79 25 3d 31 37 | 20 b8 20 31 39 3a f1 8a |(. y%=17| . 19:..|
|00000510| 33 2c 79 25 29 3b bd 28 | 31 34 35 2b 28 79 25 2d |3,y%);.(|145+(y%-|
|00000520| 31 37 29 29 3b 0d 01 fe | 1b e3 20 78 25 3d 31 36 |17));...|.. x%=16|
|00000530| 30 b8 20 31 39 31 3a ef | 20 78 25 3a ed 20 78 25 |0. 191:.| x%:. x%|
|00000540| 0d 02 08 08 ed 20 79 25 | 0d 02 12 28 e3 20 79 25 |..... y%|...(. y%|
|00000550| 3d 32 30 20 b8 20 32 32 | 3a f1 8a 33 2c 79 25 29 |=20 . 22|:..3,y%)|
|00000560| 3b bd 28 31 34 35 2b 28 | 79 25 2d 31 36 29 29 3b |;.(145+(|y%-16));|
|00000570| 0d 02 1c 1c e3 20 78 25 | 3d 31 36 30 20 b8 20 31 |..... x%|=160 . 1|
|00000580| 39 31 3a ef 20 78 25 3a | ed 20 78 25 0d 02 26 08 |91:. x%:|. x%..&.|
|00000590| ed 20 79 25 0d 02 30 2b | f1 8a 38 2c 32 33 29 3b |. y%..0+|..8,23);|
|000005a0| bd 31 33 33 3b 22 50 72 | 65 73 73 20 61 20 6b 65 |.133;"Pr|ess a ke|
|000005b0| 79 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 22 3b 0d |y to con|tinue";.|
|000005c0| 02 3a 05 e1 0d 02 4e 18 | dd f2 6c 6f 61 64 5f 73 |.:....N.|..load_s|
|000005d0| 63 72 65 65 6e 28 66 69 | 6c 65 24 29 0d 02 58 18 |creen(fi|le$)..X.|
|000005e0| ea 20 63 68 61 72 2c 63 | 68 61 6e 6e 65 6c 2c 78 |. char,c|hannel,x|
|000005f0| 25 2c 79 25 0d 02 62 05 | db 0d 02 6c 13 63 68 61 |%,y%..b.|...l.cha|
|00000600| 6e 6e 65 6c 3d 8e 20 66 | 69 6c 65 24 0d 02 76 0f |nnel=. f|ile$..v.|
|00000610| e3 20 79 25 3d 30 20 b8 | 20 32 33 0d 02 80 0e e3 |. y%=0 .| 23.....|
|00000620| 20 78 25 3d 30 b8 20 33 | 39 0d 02 8a 0f ef 20 9a | x%=0. 3|9..... .|
|00000630| 23 63 68 61 6e 6e 65 6c | 0d 02 94 08 ed 20 78 25 |#channel|..... x%|
|00000640| 0d 02 9e 08 ed 20 79 25 | 0d 02 a8 0d d9 23 63 68 |..... y%|.....#ch|
|00000650| 61 6e 6e 65 6c 0d 02 b2 | 05 e1 0d 02 c6 18 dd f2 |annel...|........|
|00000660| 73 61 76 65 5f 73 63 72 | 65 65 6e 28 66 69 6c 65 |save_scr|een(file|
|00000670| 24 29 0d 02 d0 18 ea 20 | 63 68 61 72 2c 63 68 61 |$)..... |char,cha|
|00000680| 6e 6e 65 6c 2c 78 25 2c | 79 25 0d 02 da 13 63 68 |nnel,x%,|y%....ch|
|00000690| 61 6e 6e 65 6c 3d ae 20 | 66 69 6c 65 24 0d 02 e4 |annel=. |file$...|
|000006a0| 0e e3 20 79 25 3d 30 b8 | 20 32 33 0d 02 ee 0e e3 |.. y%=0.| 23.....|
|000006b0| 20 78 25 3d 30 b8 20 33 | 39 0d 02 f8 0d f1 8a 78 | x%=0. 3|9......x|
|000006c0| 25 2c 79 25 29 3b 0d 03 | 02 20 c8 99 20 4f 53 5f |%,y%);..|. .. OS_|
|000006d0| 42 79 74 65 2c 52 65 61 | 64 5f 63 68 61 72 20 b8 |Byte,Rea|d_char .|
|000006e0| 20 2c 63 68 61 72 0d 03 | 0c 12 d5 23 63 68 61 6e | ,char..|...#chan|
|000006f0| 6e 65 6c 2c 63 68 61 72 | 0d 03 16 08 ed 20 78 25 |nel,char|..... x%|
|00000700| 0d 03 20 08 ed 20 79 25 | 0d 03 2a 0d d9 23 63 68 |.. .. y%|..*..#ch|
|00000710| 61 6e 6e 65 6c 0d 03 34 | 05 e1 0d ff             |annel..4|....    |
+--------+-------------------------+-------------------------+--------+--------+